perm filename CHAR.FAI[TD,LCS] blob sn#138838 filedate 1975-01-07 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		title CHAR
C00003 ENDMK
C⊗;
	title CHAR
	subttl OCTAL OUTPUT ROUTINE FOR DISPLAY

A←0
B←1
CH←2
PNT←3

START:	RESET
	OUTSTR	[ASCIZ/Ch	Oct/]
ST0:	MOVE	PNT,[POINT 3,A,26]
	MOVEI	B,3
	OUTSTR	[ASCIZ/
/]
	INCHRW	A
	OUTCHR	[11]
ST1:	ILDB	CH,PNT
	ADDI	CH,60
	OUTCHR	CH
	SOJG	B,ST1
	JRST	ST0

	END START